home *** CD-ROM | disk | FTP | other *** search
/ PC World 2005 December / PCWorld_2005-12_cd.bin / software / vyzkuste / pspad / pspad433inst_cz.exe / {app} / Context / Pascal.DEF < prev    next >
Text File  |  2003-08-07  |  3KB  |  153 lines
  1. ; Tento soubor obsahuje makra programu PSPad pro Pascal
  2. ;
  3. ; ╪ßdky zaΦφnajφcφ st°ednφkem a prßzdnΘ °ßdky jsou ignorovßny
  4. ;
  5. ; Formßt p°φkaz∙ :
  6. ;   [jmΘno_p°φkazu | popis p°φkazu (libovoln² text)]*klßvesovß_zkratka
  7. ;   °ßdek p°φkazu, kter² bude vlo₧en
  8. ;   °ßdek p°φkazu, kter² bude vlo₧en ...
  9. ;
  10. ; hlaviΦka p°φkazu je uzav°ena do [], znak | slou₧φ jako odd∞lovaΦ
  11. ; jmΘna p°φkazu a komentß°e.
  12. ; * urΦuje nepovinnou klßvesovou zkratku
  13. ; pokud °ßdek p°φkazu obsahuje znak |, kurzor se po vlo╛enφ do
  14. ; textu zastavφ na tomto mφst∞
  15. ; pokud °ßdek p°φkazu obsahuje znak º, bude zde vlo₧en oznaΦen² text
  16. ;
  17. ; autor: Borand - p°evzato z Delphi5
  18. ; poslednφ revize 12.8.2001
  19. ;
  20. [Macro definition]
  21. %OF%=@E Of:,
  22. %FROM%=@E Bounds from:,
  23. %TO%=@E Bounds to:,
  24. %NAME%=@E Name:,
  25. %TNAME%=@E Parent class name:,,TObject,
  26. %COUNTER%=@E Counter name:,,i,
  27. %RESULT%=@C Result type:,,,Integer;String;Boolean,
  28. %PARAMS%=@E Parametres:,
  29. ;
  30. [array |n array declaration (var)]
  31. array[%From%..%To%] of %Of%;
  32. |
  33. [case | case statement (with else)]
  34. case | of
  35.   : ;
  36.   : ;
  37. else ;
  38. end;
  39. ;
  40. [classf |n class declaration (all parts)]
  41. %Name% = class(%TName%)
  42. private
  43. |
  44. protected
  45.  
  46. public
  47.  
  48. published
  49.  
  50. end;
  51. ;
  52. [classd |n class declaration (no parts)]
  53. %Name% = class(%TName%)
  54. |
  55. end;
  56. ;
  57. [classc |n class declaration (with Create/Destroy overrides)]
  58. %Name% = class(%TName%)
  59. private
  60. |
  61. protected
  62.  
  63. public
  64.   constructor Create; override;
  65.   destructor Destroy; override;
  66. published
  67.  
  68. end;
  69. ;
  70. [fors |n for (no begin/end)]
  71. for %Cunter% := %From% to %To% do
  72.   º|
  73. [forb |n for statement]
  74. º
  75. for %Cunter% := %From% to %To% do
  76. begin
  77.   º|
  78. end;
  79. º
  80. [function |n function declaration]
  81. function %Name%(%Params%): %Result%;
  82. begin
  83. |
  84. end;
  85. ;
  86. [ifs | if (no begin/end)]
  87. if | then
  88.   º
  89. [ifb | if statement]
  90. if | then begin
  91.   º
  92. end;
  93. ;
  94. [ife | if then (no begin/end) else (no begin/end)]
  95. if | then
  96.   º
  97. else
  98. ;
  99. [ifeb | if then else]
  100. if |
  101. then begin
  102.   º
  103. end
  104. else begin
  105.  
  106. end;
  107. ;
  108. [procedure |n procedure declaration]
  109. procedure %Name%(%Params%);
  110. begin
  111.   |
  112. end;
  113. ;
  114. [trye | try except]
  115. try
  116.   º|
  117. except
  118.  
  119. end;
  120. ;
  121. [tryf | try finally]
  122. try
  123.   º|
  124. finally
  125.  
  126. end;
  127. ;
  128. [trycf |n try finally (with Create/Free)]
  129. %Name% := %TName%.Create;
  130. try
  131.   |
  132. finally
  133.   %Name%.Free;
  134. end;
  135. ;
  136. [whileb | while statement]
  137. while | do begin
  138.   º
  139. end;
  140. ;
  141. [whiles | while (no begin)]
  142. while | do
  143. ;
  144. [withb | with statement]
  145. with | do begin
  146.   º
  147. end;
  148. ;
  149. [withs | with (no begin)]
  150. with | do
  151.   º
  152. ;
  153.